home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlx_sq15.zip / SSL.SLT < prev    next >
Text File  |  1990-10-31  |  2KB  |  47 lines
  1. //-----------------------------------------------------------
  2. // SSL.SL? Save Status Line.
  3.  
  4. // Please look at the comments through the whole file, and modify to
  5. // suit your needs, BEFORE you use it. Then recompile with CS SSL.
  6.  
  7. // If you have suggestions for improving this script, please suggest
  8. // improvements to me via old-fashioned snail-mail to:
  9.  
  10. //   Inge Vabekk
  11. //   Hamangskogen 108
  12. //   N-1300 SANDVIKA
  13. //   NORWAY                   
  14. //-----------------------------------------------------------
  15.  
  16. str sline[90]                        // Save status line here.
  17.    ,temp  [4]                        // Temporary
  18.    ,global []="GLOBAL"               // Name of global script.
  19.    ,status []="STATUS"               // Status line number.
  20.    ;
  21.  
  22. //-----------------------------------------------------------
  23. // Script starts here.
  24. //-----------------------------------------------------------
  25.  
  26. main()
  27. {
  28. int number;                          // Line number.
  29.  
  30.   if (call (global,"R",status,temp) < 0)
  31.   { for (number=0; number<54;++number)   // Find status line.         
  32.     { vgetchrs(0,number,sline,0,90);
  33.       if (strposi(sline,"ALT-Z",0)>0) 
  34.       { itos (number,temp);              // Write status line number
  35.         call (global,"W",status,temp);   // into global var.
  36.         vgetchrsa(0,number,sline,0,90);  // Save it.
  37.         break;
  38.       }
  39.       else if (number==0)                // Skip lines 1-23.
  40.         number = 23;
  41.     }
  42.   }
  43.   number = stoi (temp);
  44.   vputchrsa (0,number,sline,0,90);       // Restore status line.
  45.   return (number);                       // Return line number.
  46. }
  47.